home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / alpine boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  61 lines
  1. 10 rem    alpine boot-jc hilty-1/88
  2. 12 poke53280,0:poke53281,0:print"[147][154]heading for the alps...."
  3. 14 ify=0theny=1:load"unpacker",8,1
  4. 15 ify=1theny=2:load"pac.alpinetitle",8,1
  5. 16 ify=2theny=3:load"alpine.font3",8,1
  6. 18 poke249,224:poke250,204:poke251,0:poke252,96:poke253,0:poke254,0
  7. 20 sys51456
  8. 22 sys51459
  9. 78 getjk$:ifjk$<>""then78
  10. 80 s=54272:forx=0to24:pokes+x,0:next
  11. 81 pokes+3,8:pokes+5,41:pokes+6,89:pokes+14,117:pokes+18,16:pokes+24,143
  12. 82 readfr,dr:iffr=0thenrestore:goto82
  13. 84 pokes+4,65
  14. 85 fort=1todr:fq=fr+peek(s+27)/2
  15. 86 hf=int(fq/256):lf=fqand255
  16. 87 pokes,lf:pokes+1,hf:next:pokes+4,64
  17. 88 geta$:ifa$=""then82
  18. 90 sys 51459:gosub500
  19. 91 printchr$(147):print"[154]lacing up the boots and skis....":print
  20. 92 print"[144]load"chr$(34)"alpine escape"chr$(34)",8":print:print:print:print
  21. 93 print"run":printchr$(19)
  22. 94 poke198,2:poke631,13:poke632,13
  23. 95 end
  24. 110 data 10814,4,5407,4,5103,4,5407,4,5728,4,6430,4,7217,4,8101,4
  25. 120 data 8583,4,5407,4,5103,4,5407,4,8101,4,5407,4,4817,4,5407,4
  26. 130 data 7217,4,5407,4,5103,4,5407,4,5103,4,5407,4,5103,4,5407,4
  27. 140 data 8583,4,5407,4,5103,4,5407,4,8101,4,5407,4,5103,4,5407,4
  28. 150 data 7217,4,5407,4,5728,4,6430,4,7217,4,8101,4,8583,4,9634,4
  29. 160 data 10814,4,5407,4,5103,4,5407,4,9634,4,5407,4,5103,4,5407,4
  30. 170 data 8583,4,5407,4,5103,4,5407,4,5103,4,5407,4,5103,4,5407,4
  31. 180 data 10814,4,5407,4,5103,4,5407,4,9634,4,5407,4,5103,4,5407,4
  32. 190 data 8583,4,7217,4,8101,4,8583,4,9634,4,10814,4,11457,4,12860,4
  33. 200 data 14435,8,14435,8,12860,4,14435,4,12860,4,11457,4,12860,4
  34. 210 data 14435,8,10814,8,10814,16
  35. 220 data 14435,8,14435,8,12860,4,14435,4,12860,4,11457,4,12860,4
  36. 230 data 14435,8,10814,8,10814,16
  37. 240 data 14435,8,14435,8,12860,4,14435,4,12860,4,11457,4,12860,4
  38. 250 data 14435,8,10814,8,10814,8,9634,8
  39. 260 data 8583,8,5407,8,5103,8,5407,8,8101,8,5407,8,5103,8,5407,8,0,0
  40. 500 poke53272,31:print"[147]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  41. 502 print"\"tab(38)"\":print"\ [154]  you, mr. antoine roly, must ski   \"
  42. 504 print"\ [154] one hundred miles to deliver the   \"
  43. 505 print"\ [154]microfilm you were given in geneva. \"
  44. 506 print"\ [154] use a joystick in port two to move \"
  45. 507 print"\ [154] from right to left.  push forward  \"
  46. 508 print"\ [154] to ski faster and get more points. \"
  47. 509 print"\"tab(38)"\":print"\   [154]watch out for the trees and the   \"
  48. 510 print"\ [154]biplane!  if they cause you to fall \"
  49. 512 print"\   [154]down more than five times your    \"
  50. 514 print"\  [154]mission will be doomed to failure. \"
  51. 518 print"\"tab(38)"\"
  52. 520 print"\ [154]    you'll be skiing through an     \"
  53. 522 print"\ [154]  avalanche zone so be prepared to  \"
  54. 523 print"\ [154]     dodge falling snowballs.       \"
  55. 524 print"\"tab(38)"\"
  56. 525 print"\ [154]       good luck, mr. roly!!        \"
  57. 526 print"\"tab(38)"\"
  58. 528 print"\"tab(14)"[129]press a key"tab(38)"\"
  59. 530 print"\"tab(38)"\":print"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  60. 550 poke198,0:wait198,1:poke53272,21:return
  61.